home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getdis1r / frmreg.frm (.txt) < prev    next >
Visual Basic Form  |  1999-07-26  |  6KB  |  191 lines
  1. VERSION 5.00
  2. Begin VB.Form frmReg 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Registration of <Your Program Name Here>"
  5.    ClientHeight    =   2292
  6.    ClientLeft      =   36
  7.    ClientTop       =   276
  8.    ClientWidth     =   6960
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2292
  14.    ScaleWidth      =   6960
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   1  'CenterOwner
  17.    Begin VB.CommandButton save 
  18.       Caption         =   "Quit + Save"
  19.       Enabled         =   0   'False
  20.       Height          =   492
  21.       Left            =   5760
  22.       MousePointer    =   10  'Up Arrow
  23.       TabIndex        =   9
  24.       Top             =   1680
  25.       Width           =   1092
  26.    End
  27.    Begin VB.TextBox Text2 
  28.       Height          =   288
  29.       Left            =   1200
  30.       TabIndex        =   3
  31.       Top             =   480
  32.       Width           =   5652
  33.    End
  34.    Begin VB.TextBox Text1 
  35.       Height          =   288
  36.       Left            =   1200
  37.       TabIndex        =   2
  38.       Top             =   120
  39.       Width           =   5652
  40.    End
  41.    Begin VB.CommandButton Quit 
  42.       Caption         =   "Quit W/O Saving"
  43.       Height          =   500
  44.       Left            =   3360
  45.       MousePointer    =   10  'Up Arrow
  46.       Style           =   1  'Graphical
  47.       TabIndex        =   0
  48.       Top             =   1680
  49.       Width           =   1092
  50.    End
  51.    Begin VB.CommandButton verify 
  52.       Caption         =   "Verify Registration"
  53.       Height          =   500
  54.       Left            =   4560
  55.       MousePointer    =   10  'Up Arrow
  56.       Style           =   1  'Graphical
  57.       TabIndex        =   5
  58.       Top             =   1680
  59.       Width           =   1092
  60.    End
  61.    Begin VB.CommandButton Command1 
  62.       Caption         =   "Thank You"
  63.       Enabled         =   0   'False
  64.       Height          =   500
  65.       Left            =   5760
  66.       MousePointer    =   10  'Up Arrow
  67.       Style           =   1  'Graphical
  68.       TabIndex        =   10
  69.       Top             =   1680
  70.       Visible         =   0   'False
  71.       Width           =   1092
  72.    End
  73.    Begin VB.Label Label4 
  74.       Caption         =   "Reg Code #2:"
  75.       Height          =   252
  76.       Left            =   120
  77.       TabIndex        =   7
  78.       Top             =   516
  79.       Width           =   1092
  80.    End
  81.    Begin VB.Label Label3 
  82.       Caption         =   "Reg Name #1:"
  83.       Height          =   252
  84.       Left            =   120
  85.       TabIndex        =   6
  86.       Top             =   156
  87.       Width           =   1092
  88.    End
  89.    Begin VB.Label Label2 
  90.       BackColor       =   &H80000012&
  91.       Caption         =   $"frmReg.frx":0000
  92.       ForeColor       =   &H000000FF&
  93.       Height          =   612
  94.       Left            =   120
  95.       TabIndex        =   4
  96.       Top             =   960
  97.       Width           =   6732
  98.    End
  99.    Begin VB.Label Label1 
  100.       BackColor       =   &H00FFFFFF&
  101.       Enabled         =   0   'False
  102.       BeginProperty Font 
  103.          Name            =   "Arial"
  104.          Size            =   10.2
  105.          Charset         =   0
  106.          Weight          =   700
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       ForeColor       =   &H00FFFFFF&
  112.       Height          =   252
  113.       Left            =   120
  114.       TabIndex        =   1
  115.       Top             =   120
  116.       Visible         =   0   'False
  117.       Width           =   6732
  118.    End
  119.    Begin VB.Label Label5 
  120.       BackColor       =   &H00FFFFFF&
  121.       Enabled         =   0   'False
  122.       BeginProperty Font 
  123.          Name            =   "Arial"
  124.          Size            =   10.2
  125.          Charset         =   0
  126.          Weight          =   700
  127.          Underline       =   0   'False
  128.          Italic          =   0   'False
  129.          Strikethrough   =   0   'False
  130.       EndProperty
  131.       ForeColor       =   &H00FFFFFF&
  132.       Height          =   252
  133.       Left            =   120
  134.       TabIndex        =   8
  135.       Top             =   480
  136.       Visible         =   0   'False
  137.       Width           =   6732
  138.    End
  139. Attribute VB_Name = "frmReg"
  140. Attribute VB_GlobalNameSpace = False
  141. Attribute VB_Creatable = False
  142. Attribute VB_PredeclaredId = True
  143. Attribute VB_Exposed = False
  144. Private Sub Command1_Click()
  145. Unload Me
  146. End Sub
  147. Private Sub Form_Load()
  148.        If GetSetting("<Your Program Name Here>", "Options", "Code1") <> "" Then
  149.            Command1.Enabled = True
  150.            Command1.Visible = True
  151.            save.Visible = False
  152.            Quit.Visible = False
  153.            verify.Visible = False
  154.            Text1.Visible = False
  155.            Text2.Visible = False
  156.            Label3.Visible = True
  157.            Label4.Visible = True
  158.            Label1.Visible = True
  159.            Label5.Visible = True
  160.            Label1.Caption = GetSetting("<Your Program Name Here>", "Options", "Name1")
  161.            Label5.Caption = GetSetting("<Your Program Name Here>", "Options", "Code1")
  162.        End If
  163. End Sub
  164. Private Sub save_Click()
  165. SaveSetting "<Your Program Name Here>", "Options", "Name1", Label1.Caption
  166. SaveSetting "<Your Program Name Here>", "Options", "Code1", Label5.Caption
  167. MsgBox "Must refresh settings; close Register and re-enter."
  168. End Sub
  169. Private Sub verify_Click()
  170. If Text1.Text = "<Your Register Name Here>" And Text2.Text = "<Your Code Number Here>" Then
  171. Label1.Visible = True
  172. Label1.Caption = "Registered to:<Your Register Name Here>"
  173. Label5.Visible = True
  174. Label5.Caption = "Registration #:<Your Code Number Here>"
  175. save.Enabled = True
  176. save.Visible = True
  177. Text1.Enabled = False
  178. Text1.Visible = False
  179. Text2.Enabled = False
  180. Text2.Visible = False
  181. Label3.Visible = False
  182. Label4.Visible = False
  183. save.Enabled = True
  184. save.Enabled = False
  185. MsgBox "Sorry you have entered a wrong Registration Name and Code."
  186. End If
  187. End Sub
  188. Private Sub Quit_Click()
  189. Unload Me
  190. End Sub
  191.